home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 8
/
CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso
/
pc
/
mac
/
__game_t
/
dungeon_
/
dm_refer.enc
/
background_8116.txt
< prev
next >
Wrap
Text File
|
1992-05-24
|
10KB
|
487 lines
-- background: 8116 from stack: in.enc
-- bmap block id: 9312
-- flags: 0000
-- background id: 0
-- name: cWiz
----- HyperTalk script -----
on newcard
click at the loc of field "Name"
end newcard
on idle
if the selectedField is empty then
get the scroll of field "Title"
align it
end if
pass idle
end idle
on align it
set scroll of field "Title" to it
set scroll of field "Range" to it
set scroll of field "Duration" to it
set scroll of field "Area" to it
set scroll of field "Notes" to it
end align
on tabkey
put the number of the target into tgt
if tgt<7 then
select line (word 2 of the selectedline) of field (tgt+1)
else if tgt=7 then
put (word 2 of the selectedline)+1 into ln
select line ln of field "Title"
get the scroll of field "Title"
align it
select line ln of field "Title"
else pass tabkey
end tabkey
on returnInField
send returnInField to hypercard
put the number of the target into tgt
if tgt>2 and tgt<8 then
put word 2 of the selectedline into ln
get the scroll of the target
align it
select before character 1 of line ln of the target
end if
end returnInField
-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=401 top=50 right=82 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flip
----- HyperTalk script -----
on mousedown
gonext
end mousedown
on mousestilldown
gonext
end mousestilldown
-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=43 right=339 bottom=23
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mousedown
goprev
end mousedown
on mousestilldown
goprev
end mousestilldown
-- part 158 (field)
-- low flags: 03
-- high flags: 0002
-- rect: left=38 top=67 right=80 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Cat3
----- HyperTalk script -----
on mousedown
global MagicMenu
get PopupMenu(MagicMenu,chkitm,68,39)
if it is not 0 then put line it of MagicMenu into me
set the name of this card to me
end mousedown
-- part 86 (field)
-- low flags: 02
-- high flags: 4000
-- rect: left=76 top=65 right=82 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name3
-- part 154 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=34 top=94 right=330 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Title
----- HyperTalk script -----
on mouseleave
get the scroll of the target
align it
end mouseleave
-- part 163 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=28 right=55 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
godm
end mouseUp
-- part 164 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=56 right=83 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
goadv
end mouseUp
-- part 165 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=84 right=111 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
goenc
end mouseUp
-- part 166 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=112 right=139 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
gocom
end mouseUp
-- part 167 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=140 right=167 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
goexp
end mouseUp
-- part 168 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=308 right=335 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
gocal
end mouseUp
-- part 169 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=168 right=195 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: aHero
----- HyperTalk script -----
on mouseUp
gohero
end mouseUp
-- part 170 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=196 right=223 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bMnstr
----- HyperTalk script -----
on mouseUp
gomnstr
end mouseUp
-- part 171 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=224 right=251 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cwiz
----- HyperTalk script -----
on mouseUp
gowiz
end mouseUp
-- part 172 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=280 right=307 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
goutil
end mouseUp
-- part 173 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=468 top=252 right=279 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: eItem
----- HyperTalk script -----
on mouseUp
goitm
end mouseUp
-- part 180 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=136 top=94 right=330 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Range
----- HyperTalk script -----
on mouseleave
get the scroll of the target
align it
end mouseleave
-- part 185 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=187 top=94 right=330 bottom=257
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Duration
----- HyperTalk script -----
on mouseleave
get the scroll of the target
align it
end mouseleave
-- part 186 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=240 top=94 right=330 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Area
----- HyperTalk script -----
on mouseleave
get the scroll of the target
align it
end mouseleave
-- part 187 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=291 top=94 right=330 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Notes
----- HyperTalk script -----
on mouseleave
get the scroll of the target
align it
end mouseleave
-- part 181 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=417 top=91 right=331 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 182 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=418 top=88 right=342 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 188 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=377 top=61 right=82 bottom=398
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
gohelp "magic Help"
end mouseUp